SUBROUTINE TRANS(N)
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
	COMMON K /P/ P(1) /CONV/ICONV 
	DATA BLA/'   '/,TRNS/'TRNS'/,EXCL/'!'/
	IF(N.NE.1)GO TO 1
4	WRITE(JTYPE,2)
	READ(JTYPE,3)XNAM
CC	IF(XNAM.NE.EXCL)GO TO 5
C TYPE '!' TO OUTPUT FOR SMPLS PROG.   TRIGGERS ICONV FLIPFLOP
C******* ONLY WRITES FOR SMPLS NOW ******* 1/30/79 ***********
  	ICONV=0
CC	WRITE(JTYPE,44)
CC	GO TO 4
44  	FORMAT(' OUTPUT=TEST.DAT'/)
5	IF(XNAM.EQ.BLA)XNAM=TRNS
	CALL DISKO(ID21,XNAM,-1)
	N=0
2	FORMAT(' TYPE FILE NAME -- '$)
3	FORMAT(A4)
1	READ (ID21) K,(P(J),J=1,K)  
	END
CC	SUBROUTINE PLAY
CC	TYPE 1
CC	CALL EXIT
CC1	FORMAT(' TEST.SND WAS WRITTEN')
CC	END